**WIZARDRY
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
TSTART BSPACE
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 0 1 COUNT=MANUAL SYNC=YES
COPY 1 22 1 SYNC=YES

***
**WORD HANDLER
READ
CHANGE SS DHDR
SET PAT2 FF DF DE /
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 C 1
COPY 11 22 1

***
**WARP FACTOR
READ
CHANGE SS DHDR
SET PAT2 DB D5 DE /
TSTART PAT2 STAT 2
IF FAIL 2 THEN TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 22 1
*WRITE PROTECT BEFORE USING

***
**WIZ MAKER
READ
CHANGE SS DHDR
TSTART DOS PAT1 STAT 1
IF FAIL 1 THEN TSTART LONG SS
TEND REPEAT
DISPLAY
TSTART BSPACE
TEND FSPACE 3
VSTART NORM
LABEL 1:WRITE STAT 1
IF SUCC 1 THEN GOTO EE
SHORTEN ALL EQUAL BY 2 STAT 5
IF FAIL 5 THEN GOTO DD
CLEAR ERROR : GOTO 1
LABEL DD
SHORTEN ALL CENTER BY 2 STAT 6
IF FAIL 6 GOTO DA
CLEAR ERROR : GOTO 1
LABEL DA: * SHORTENING FAILED
LABEL EE: * WRITE SUCCEEDED
COPY 0 22 1 SYNC=YES

***
